program Project1; // Zadanie 3.1

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  x, y : Integer;

begin
  Writeln('Program oblicza wartosc funkcji y = 3x dla x zmieniajacego sie od 0 do 10.');

  for x := 0 to 10 do
    begin
      y := 3*x;
      Writeln('x = ', x, #9, 'y = ', y);
    end;

  Readln; // czeka na nacisniecie klawisza Enter
end.
